Option Explicit
Sub D_Sample023()
    Dim mySht As Worksheet
    Set mySht = Worksheets(1)
    'ǳƨ즹
    With Worksheets
        mySht.Move After:=.Item(.Count)			'ʨ̫᭱
        mySht.Move Before:=.Item(1)  			'ʨ̫e
        mySht.Move 					'ʨsï
    End With
    Set mySht = Nothing						'
End Sub

